home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / yvutil.lha / Rexx / yam.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-04-06  |  752 b   |  28 lines
  1. /* Yam Launcher & Mailto processor                                       */
  2. /* This version is smarter than "MAIL2YAM" as it will load YAM if it is  */
  3. /* not already loaded, and it passes both the URL as the subject AND the */
  4. /* EMail address to send mail to                                         */
  5. /* Copyright (c) Tristan R. Young, tyoung@netrover.com  4/5/98           */
  6.  
  7.  
  8. PATH = "dh1:internet/yam"
  9.  
  10. PARSE ARG mailto subject
  11.  
  12. START:
  13.  
  14. if show('P','YAM') then do
  15.     address YAM 'show'
  16.     address YAM 'mailwrite'
  17.     address YAM 'writesubject "'subject'"'
  18.     address YAM 'writemailto "'mailto'"'
  19.     EXIT
  20. end
  21.  
  22. else do
  23.     pragma('D', PATH)
  24.     address command 'run >nil: YAM NOCHECK'
  25.     address command 'waitforport YAM'
  26.     signal START
  27. end
  28.